inherited FFRotinaGeraPagamentoProgramado: TFFRotinaGeraPagamentoProgramado
  Caption = 'Gera Pagamento Programado'
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 80
      Height = 16
      Caption = 'Compet'#234'ncia '
    end
    object Label2: TLabel
      Left = 9
      Top = 72
      Width = 100
      Height = 16
      Caption = 'Data Vencimento'
    end
    object DTPeriodoValidade: TDateTimePicker
      Tag = 5
      Left = 8
      Top = 36
      Width = 127
      Height = 21
      CalAlignment = dtaLeft
      Date = -363
      Format = 'MMMM yyyy'
      Time = -363
      DateFormat = dfShort
      DateMode = dmUpDown
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DEDataVencimento: TDateEdit
      Tag = 5
      Left = 9
      Top = 92
      Width = 98
      Height = 21
      ButtonWidth = 26
      NumGlyphs = 2
      TabOrder = 1
      OnEnter = DEDataVencimentoEnter
    end
  end
  object QPagamentoProgramado: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Cobranca_Programada'
      'Where (CodigoEmpresa = 1)'
      ''
      
        'And (PERIODOVALIDADEINI <='#39'2003/08/01'#39' and PERIODOVALIDADEFIN >=' +
        #39'2003/08/01'#39')'
      ''
      'And (DATAINATIVO <> '#39'2003/08/01'#39' )'
      '')
    Left = 151
    Top = 57
  end
  object QContasPagar: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from ContasReceber'
      ''
      
        'Order By CR_Codigo,CR_CLIENTE,CR_PLANO,CR_DATAVENCIMENTO,CR_VALO' +
        'R')
    Left = 264
    Top = 49
  end
  object DSPagamentoProgramado: TDataSource
    DataSet = QPagamentoProgramado
    Left = 456
    Top = 56
  end
  object dsCamposPesquisa: TDataSource
    Left = 216
    Top = 56
  end
  object dsCadastro: TDataSource
    AutoEdit = False
    DataSet = cdsCadastro
    Left = 464
    Top = 160
  end
  object QCadastro: TQuery
    DatabaseName = 'base'
    Left = 456
    Top = 88
  end
  object dspCadastro: TDataSetProvider
    DataSet = QCadastro
    Constraints = True
    Left = 160
    Top = 256
  end
  object cdsCadastro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastro'
    Left = 160
    Top = 296
  end
  object OpenDialog1: TOpenDialog
    Left = 48
    Top = 72
  end
  object PopupMenu1: TPopupMenu
    Left = 344
    Top = 248
    object Selecionar1: TMenuItem
      Caption = 'Selecionar'
    end
    object Novo1: TMenuItem
      Caption = 'Novo'
    end
    object Excluir1: TMenuItem
      Caption = 'Excluir'
    end
    object Recuperar1: TMenuItem
      Caption = 'Recuperar'
    end
  end
end
